home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / LISP / GAMBIT_1 / FACT.SCM next >
Text File  |  1992-03-18  |  56b  |  3 lines
  1. (define (fact n)
  2.   (if (< n 2) 1 (* (fact (- n 1)) n)))
  3.